home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Mops 2.7 / Mops Manual / Part I.srd / Part I.srd.rsrc / PICT_73.png < prev    next >
Portable Network Graphic  |  1996-01-02  |  89KB  |  816x1056  |  8-bit (239 colors)
Labels: book | reckoner | sky | windowpane
OCR: Lesson 15 I-69 :class TRIGTABLE super{ wArray 1 wArray AXISVALS 90 degree values 1 4 15 SIN: degree quadrant 1 6 Looks 10000 of an angle 1 7 1 8 degree 360 mod Put angle in range 359 to +359 1 9 dup 0< IF 360 THEN Now 0 to 65+ 20 90 /mod Convert angle to range 089 and get quadrant > quadrant degree 22 degree Test for an axis 23 NIF quadrant at axisVals I f an axis, get value 24 ELSE guadrant and True for "mi rror" quadrants and I F 90 degree Create mirror image 2.6 ELSE degree 2 7 THEN 28 at: self Get sin for this degree 29 quadrant and True for "negat: ive" quadrants and 30 negat THEN 31 THEN 32 COS degree Cos 9r sin: self Cos is sin shifted 90 degrees 36 CLASSINIT: 37 to: axi svals 38 10000 to: axi svals 3 C to: axi svals 4 O 10000 to: ax .svals ;class 90 TrigTable SINES system-wide tabl ...